home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / music / sfxbn40m.lha / sfx-bin / _rexx / RemQuantNoise.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-18  |  965b  |  50 lines
  1. /* SFX Arexxtester */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS REXX_SFX
  6.  
  7. SetFXParam 'FX_OctaveDown' 'Interpolate' '1'
  8. SetFXParam 'FX_OctaveUp' 'Interpolate' '1'
  9.  
  10. GetActiveBuffer
  11. buf2=RESULT
  12.  
  13. IF buf2<9999 THEN DO
  14.     FX_OctaveDown buf2
  15.     IF RC~=0 THEN CALL AppError('FX_OcatevDown',RC)
  16.     ELSE buf1=RESULT
  17.  
  18.     FX_OctaveUp buf1
  19.     IF RC~=0 THEN CALL AppError('FX_OcatevUp',RC)
  20.     ELSE buf2=RESULT
  21.     RemoveBuffer buf1
  22.  
  23.     FX_OctaveDown buf2
  24.     IF RC~=0 THEN CALL AppError('FX_OcatevDown',RC)
  25.     ELSE buf1=RESULT
  26.     RemoveBuffer buf2
  27.  
  28.     FX_OctaveUp buf1
  29.     IF RC~=0 THEN CALL AppError('FX_OcatevUp',RC)
  30.     ELSE buf2=RESULT
  31.     RemoveBuffer buf1
  32.     SetActiveBuffer buf2
  33. END
  34. ActivateSFX                                                /* fertig */
  35.  
  36. EXIT
  37.  
  38. AppError:PROCEDURE
  39.     cmd=arg(1)
  40.     ret=arg(2)
  41.     SAY 'Application Error';say
  42.     SAY 'Command 'cmd' failed with Returncode 'ret
  43.     SELECT
  44.         WHEN ret='1' THEN SAY '    => unknown command'
  45.         WHEN ret='2' THEN SAY '    => unknown parameter'
  46.         OTHERWISE SAY '    => unknown returncode'
  47.     END
  48.     SAY
  49. RETURN
  50.